Komputer for Alle 2001 #11/CD 11 (Black) - 2001.iso/K-CS.DCR/00035.ls

Text File | 2001-06-28 | 653 b | 29 lines

global BlinkObjekt

on new me
  cursor(0)
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink", 4, 80)
end

on exitFrame
  set Bredde to the width of sprite 48
  if Bredde < 284 then
    set the width of sprite 48 to Bredde + 2
    set the text of member "FolderCount" to string(Bredde * 5)
    if Bredde > 100 then
      set the visible of sprite 49 to 1
      if Bredde > 200 then
        set the visible of sprite 50 to 1
        set the text of member "SpyCount" to "33"
      else
        set the text of member "SpyCount" to "31"
      end if
    end if
    go(#loop)
  else
    go(#next)
  end if
end